home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / S-Sh / ScrollBar.cpt / ScrollBar Stack / card_8423.txt < prev    next >
Text File  |  1990-04-17  |  3KB  |  112 lines
  1. -- card: 8423 from stack: in
  2. -- bmap block id: 5634
  3. -- flags: 0000
  4. -- background id: 6693
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global lockInit
  9.   if lockInit then exit openCard
  10.  
  11.   send initBar to cd fld "Volume"
  12. end openCard
  13.  
  14.  
  15. -- part 1 (field)
  16. -- low flags: 01
  17. -- high flags: 0000
  18. -- rect: left=334 top=118 right=268 bottom=350
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 0 / 0
  21. -- text alignment: 0
  22. -- font id: 3
  23. -- text size: 12
  24. -- style flags: 0
  25. -- line height: 16
  26. -- part name: Volume
  27. ----- HyperTalk script -----
  28. on mouseDown
  29.  
  30.   put VolumeLevel() into orig
  31.   put ScrollBar(true, true, false, 0, 7, orig, 1) into new
  32.   if new <> orig then
  33.     put VolumeLevel(new) into it
  34.     play "Boing"
  35.   end if
  36. end mouseDown
  37.  
  38. on initBar
  39.   put ScrollBar(false, true, false, 0, 7, VolumeLevel(), -1) into it
  40. end initBar
  41.  
  42.  
  43.  
  44. -- part 2 (button)
  45. -- low flags: 00
  46. -- high flags: 8001
  47. -- rect: left=394 top=165 right=212 bottom=454
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 12694 / 12694
  50. -- text alignment: 1
  51. -- font id: 0
  52. -- text size: 12
  53. -- style flags: 0
  54. -- line height: 16
  55. -- part name: Sample Tune
  56. ----- HyperTalk script -----
  57. on mouseUp
  58.   global Tempo, Pitch
  59.   put 210 into Tempo
  60.   put 4 into Pitch
  61.   playTune
  62.   set the name of me to "Stop Sample"
  63.   set the icon of me to "Sp 0"
  64.   repeat forever
  65.     if the sound is "done" or the mouse is "down" then exit repeat
  66.   end repeat
  67.   play stop
  68.   set the name of me to "Sample Tune"
  69.   set the icon of me to "Music Note"
  70. end mouseUp
  71.  
  72.  
  73.  
  74. -- part 3 (field)
  75. -- low flags: 81
  76. -- high flags: 0007
  77. -- rect: left=15 top=15 right=273 bottom=497
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 0
  81. -- font id: 4
  82. -- text size: 9
  83. -- style flags: 0
  84. -- line height: 12
  85. -- part name: Script
  86.  
  87.  
  88. -- part contents for background part 3
  89. ----- text -----
  90. The scroll bar adjusts the volume level of the Mac using my VolumeLevel() XFCN. ScrollBar() is called using a mouseDown handler so the scroll bar is not activated unless a click occurs over the bar, this also means that the cursor will not change to an arrow in the scroll region until the button is clicked. No call back is used.
  91. The parent object of the scroll bar is a field ‚Äî just to demonstrate the use of ScrollBar() from fields‚Ķ
  92.  
  93.  
  94.  
  95. -- part contents for card part 3
  96. ----- text -----
  97. Script of scroll bar field:
  98.  
  99. on mouseDown
  100.   
  101.   put VolumeLevel() into orig
  102.   put ScrollBar(true, true, false, 0, 7, orig, 1) into new
  103.   if new <> orig then
  104.     put VolumeLevel(new) into it
  105.     play "Boing"
  106.   end if
  107. end mouseDown
  108.  
  109. on initBar
  110.   put ScrollBar(false, true, false, 0, 7, VolumeLevel(), -1) into it
  111. end initBar
  112.